package com.piggy.logi.common.datascope.aspect;

import cn.hutool.core.lang.Validator;
import cn.hutool.core.util.ObjectUtil;
import cn.hutool.core.util.StrUtil;
import com.piggy.common.core.utils.StringUtils;
import com.piggy.common.core.web.domain.BaseEntity;
import com.piggy.common.satoken.utils.SecurityUtils;
import com.piggy.logi.common.datascope.annotation.LogiDataScope;
import com.piggy.logi.common.datascope.service.LogiAwaitUserService;
import com.piggy.logi.sys.api.domain.LogiSysRole;
import com.piggy.logi.sys.api.domain.LogiSysUser;
import com.piggy.sys.api.model.LoginUser;
import org.aspectj.lang.JoinPoint;
import org.aspectj.lang.Signature;
import org.aspectj.lang.annotation.Aspect;
import org.aspectj.lang.annotation.Before;
import org.aspectj.lang.annotation.Pointcut;
import org.aspectj.lang.reflect.MethodSignature;
import org.springframework.stereotype.Component;

import javax.annotation.Resource;
import java.lang.reflect.Method;
import java.util.Map;

/**
 * 数据过滤处理
 *
 * @author shark
 */
@Aspect
@Component
public class LogiDataScopeAspect {
    /**
     * 全部数据权限
     */
    public static final String DATA_SCOPE_ALL = "1";

    /**
     * 自定数据权限
     */
    public static final String DATA_SCOPE_CUSTOM = "2";

    /**
     * 部门数据权限
     */
    public static final String DATA_SCOPE_DEPT = "3";

    /**
     * 部门及以下数据权限
     */
    public static final String DATA_SCOPE_DEPT_AND_CHILD = "4";

    /**
     * 仅本人数据权限
     */
    public static final String DATA_SCOPE_SELF = "5";

    /**
     * 数据权限过滤关键字
     */
    public static final String DATA_SCOPE = "dataScope";

    @Resource
    private LogiAwaitUserService logiAwaitUserService;

    // 配置织入点
    @Pointcut("@annotation(com.piggy.logi.common.datascope.annotation.LogiDataScope)")
    public void dataScopePointCut() {
    }

    @Before("dataScopePointCut()")
    public void doBefore(JoinPoint point) throws Throwable {
        clearDataScope(point);
        handleDataScope(point);
    }

    protected void handleDataScope(final JoinPoint joinPoint) {
        // 获得注解
        LogiDataScope controllerLogiDataScope = getAnnotationLog(joinPoint);
        if (controllerLogiDataScope == null) {
            return;
        }
        // 获取当前的用户
        LoginUser<LogiSysUser> loginUser = logiAwaitUserService.info();
        LogiSysUser currentUser = loginUser.getSysUser();
        if (ObjectUtil.isNotNull(loginUser)) {
            // 如果是超级管理员，则不过滤数据
            if (StringUtils.isNotNull(currentUser) && !SecurityUtils.isAdmin(loginUser.getUserId())) {
                dataScopeFilter(joinPoint, currentUser, controllerLogiDataScope.deptAlias(),
                        controllerLogiDataScope.userAlias(), controllerLogiDataScope.isUser());
            }
        }
    }

    /**
     * 数据范围过滤
     *
     * @param joinPoint 切点
     * @param user      用户
     * @param deptAlias 部门别名
     * @param userAlias 用户别名
     */
    public static void dataScopeFilter(JoinPoint joinPoint, LogiSysUser user, String deptAlias, String userAlias, boolean isUser) {
        StringBuilder sqlString = new StringBuilder();

        // 将 "." 提取出,不写别名为单表查询,写别名为多表查询
        deptAlias = StrUtil.isNotBlank(deptAlias) ? deptAlias + "." : "";
        userAlias = StrUtil.isNotBlank(userAlias) ? userAlias + "." : "";

        for (LogiSysRole role : user.getRoles()) {
            String dataScope = role.getDataScope();
            if (DATA_SCOPE_ALL.equals(dataScope)) {
                sqlString.append(StrUtil.format(
                        " OR {}dept_id IN ( SELECT dept_id FROM logi_sys_dept WHERE dept_id = {} or find_in_set( {} , ancestors ) )",
                        deptAlias, user.getDeptId(), user.getDeptId()));
                break;
            } else if (DATA_SCOPE_CUSTOM.equals(dataScope)) {
                sqlString.append(StrUtil.format(
                        " OR {}dept_id IN ( SELECT dept_id FROM logi_sys_role_dept WHERE role_id = {} ) ",
                        deptAlias, role.getRoleId()));
            } else if (DATA_SCOPE_DEPT.equals(dataScope)) {
                sqlString.append(StrUtil.format(" OR {}dept_id = {} ",
                        deptAlias, user.getDeptId()));
            } else if (DATA_SCOPE_DEPT_AND_CHILD.equals(dataScope)) {
                sqlString.append(StrUtil.format(
                        " OR {}dept_id IN ( SELECT dept_id FROM logi_sys_dept WHERE dept_id = {} or find_in_set( {} , ancestors ) )",
                        deptAlias, user.getDeptId(), user.getDeptId()));
            } else if (DATA_SCOPE_SELF.equals(dataScope)) {
                if (isUser) {
                    sqlString.append(StrUtil.format(" OR {}user_id = {} ",
                            userAlias, user.getUserId()));
                } else {
                    // 数据权限为仅本人且没有userAlias别名不查询任何数据
                    sqlString.append(" OR 1=0 ");
                }
            }
        }

        if (StrUtil.isNotBlank(sqlString.toString())) {
            putDataScope(joinPoint, sqlString.substring(4));
        }
    }

    /**
     * 是否存在注解，如果存在就获取
     */
    private LogiDataScope getAnnotationLog(JoinPoint joinPoint) {
        Signature signature = joinPoint.getSignature();
        MethodSignature methodSignature = (MethodSignature) signature;
        Method method = methodSignature.getMethod();

        if (method != null) {
            return method.getAnnotation(LogiDataScope.class);
        }
        return null;
    }

    /**
     * 拼接权限sql前先清空params.dataScope参数防止注入
     */
    private void clearDataScope(final JoinPoint joinPoint) {
        Object params = joinPoint.getArgs()[0];
        if (StringUtils.isNotNull(params) && params instanceof BaseEntity) {
            BaseEntity baseEntity = (BaseEntity) params;
            baseEntity.getParams().put(DATA_SCOPE, "");
        }
    }

    @SuppressWarnings("unchecked")
    private static void putDataScope(JoinPoint joinPoint, String sql) {
        Object params = joinPoint.getArgs()[0];
        if (Validator.isNotNull(params)) {
            if (params instanceof BaseEntity) {
                BaseEntity baseEntity = (BaseEntity) params;
                baseEntity.getParams().put(DATA_SCOPE, sql);
            } else {
                try {
                    Method getParams = params.getClass().getDeclaredMethod("getParams");
                    Map<String, Object> invoke = (Map<String, Object>) getParams.invoke(params);
                    invoke.put(DATA_SCOPE, sql);
                } catch (Exception e) {
                    // 方法未找到 不处理
                }
            }
        }
    }
}
